perm filename TTEST.SAI[HAL,HE]2 blob sn#231598 filedate 1976-08-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN  "ttest"
C00004 ENDMK
CāŠ—;
BEGIN  "ttest"


DEFINE ! = " COMMENT ";

 REQUIRE "MAKETF.REL[HAL,HE]" LOAD_MODULE;
   EXTERNAL PROCEDURE MAKETFILE (REFERENCE STRING MESSG);
   EXTERNAL PROCEDURE INITMTF;

 REQUIRE "TRJDPY.REL[HAL,HE]" LOAD_MODULE;
   EXTERNAL PROCEDURE DISPLAY(STRING MESSG);

 INITMTF;
WHILE TRUE DO
    BEGIN "driver"
    STRING MESSG;
    MAKETFILE(MESSG);
    DISPLAY(MESSG);
    END "driver";

END "ttest";